;
;	dBase II Pop-up Menu Configuration
;
Comment 	("Configured for dBase II ")

;
;	Parameters
;
Sensitivity	(8, 10) 	; (Xinc, Yinc)
Hysteresis	(1, 1)		; (AutoX, AutoY)
ReverseVideo	(Yes)		; Menu is displayed in reverse video
FixedMenu	(Yes)		; Menu is fixed
MenuCenter	(70,20) 	; Menu appears in lower right corner
EnableBeep	(No)		; Allows menu switching rather than beep

;
;	Cursor Definitions
;
CommandKeys:Cursor
(
	Left   ()
	Right  ()
	Up     ()
	Down   ()
)

ArrowKeys: Cursor
(
	Left   ([Left])
	Right  ([Right])
	Up     ([Up])
	Down   ([Down])
)

;
;	Button Definitions
;
LBM:	Button	(Menu(Main),Cursor(CommandKeys)); Left button, Main Menu
LBO:	Button	(Menu(More),Cursor(CommandKeys)); Left button, More Menu

MBF:	Button	(Menu(Full),Cursor(ArrowKeys)); Middle button, Full Menu
MBE:	Button	(Menu(Edit),Cursor(ArrowKeys)); Middle button, Edit Menu
MBA:	Button	(Menu(Add),Cursor(ArrowKeys)); Middle button, Add Menu
MBI:	Button	(Menu(Insert),Cursor(ArrowKeys)); Middle button, Insert Menu
MBO:	Button	(Menu(Modify),Cursor(ArrowKeys)); Middle button, Modify Menu

RBF:	Button	(Menu(File),Cursor(CommandKeys)); Right button, File Menu


;
;	Menu Definitions  -  Left Button
;
Main: Menu
(
	Title	("Main")
	Item	("Command Line Cursor", Cursor(CommandKeys))
	Item	("Append",              Keys("append" [Enter]))
	Item	("Edit Current Record", Keys ("Edit *" [Enter]))
	Item	("Edit Record n",       Keys ("Edit "))
	Item	("Insert Record",       Keys ("Insert" [Enter]))
	Item	("Display Record",      Keys ("Disp" [Enter]))
	Item	("Display All Records", Keys ("Disp all" [Enter]))
	Item	("Esc",                 Keys ([Esc]))
	Item	("More Menu",           Menu(More), Button(LBO))
)


More: Menu
(
	Title	("More")
	Item	("Command Line Cursor", Cursor(CommandKeys))
	Item	("Main Menu",           Menu(Main), Button(LBM))
	Item	("Locate for ...",      Keys("locate for "))
	Item	("Continue search",     Keys("continue" [Enter]))
	Item	("Goto Top",            Keys("goto top" [Enter]))
	Item	("Goto Bottom",         Keys("goto bottom" [Enter]))
	Item	("Index on ...",        Keys("index on "))
	Item	("Sort on ...",         Keys("Sort on "))
	Item	("Report",              Keys("report" [Enter]))
	Item	("Printer On",          Keys ("set print on" [Enter]))
	Item	("Printer Off",         Keys ("set print off" [Enter]))
	Item	("Eject",               Keys("Eject" [Enter]))
)


;
;	Menu Definitions  -  Middle Button
;
Full: Menu
(
	Title	("Full Screen Menus")
	Item	("Full Screen Cursor",  Cursor(ArrowKeys))
	Item	("Add Record Menu",     Menu(Add),button(MBA))
	Item	("Edit Record Menu",    Menu(Edit),button(MBE))
	Item	("Insert Record Menu",  Menu(Insert),button(MBI))
	Item	("Modify Menu",         Menu(Modify),button(MBO))
)


Add: Menu
(
	Title	("Add Record")
	Item	("Full Screen Cursor",  Cursor(ArrowKeys))
	Item	("Stop Adding - Save",  Keys ([c-W]))
	Item	("Stop Adding - No Save",Keys ([c-Q]))
	Item	("Next Record",         Keys ([c-C]))
	Item	("Erase Data",          Keys ([c-Y]))
	Item	("Delete Character",    Keys ([c-G]))
	Item	("Insert/Overwrite",    Keys ([c-V]))
	Item	("Delete Record Yes/No",Keys ([c-U]))
	Item	("Full Screen Menu",    Menu(Full), Button(MBF))
)


Edit: Menu
(
	Title	("Edit Record")
	Item	("Full Screen Cursor",  Cursor(ArrowKeys))
	Item	("Stop Editing - Save", Keys ([c-W]))
	Item	("Stop Editing - No Save",Keys ([c-Q]))
	Item	("Previous Record",     Keys ([c-R]))
	Item	("Next Record",         Keys ([c-C]))
	Item	("Erase Data",          Keys ([c-Y]))
	Item	("Delete Character",    Keys ([c-G]))
	Item	("Insert/Overwrite",    Keys ([c-V]))
	Item	("Delete Record Yes/No",Keys ([c-U]))
	Item	("Full Screen Menu",    Menu(Full), Button(MBF))
)


Insert: Menu
(
	Title	("Insert Record")
	Item	("Full Screen Cursor",  Cursor(ArrowKeys))
	Item	("Stop Inserting - Save", Keys ([c-W]))
	Item	("Stop Inserting - No Save",Keys ([c-Q]))
	Item	("Erase Data",          Keys ([c-Y]))
	Item	("Delete Character",    Keys ([c-G]))
	Item	("Insert/Overwrite",    Keys ([c-V]))
	Item	("Delete Record Yes/No",Keys ([c-U]))
	Item	("Full Screen Menu",    Menu(Full), Button(MBF))
)


Modify: Menu
(
	Title	("Modify")
	Item	("Full Screen Cursor",  Cursor(ArrowKeys))
	Item	("Stop - Save",         Keys ([c-W]))
	Item	("Stop - No Save",      Keys ([c-Q]))
	Item	("Erase Data",          Keys ([c-Y]))
	Item	("Delete Character",    Keys ([c-G]))
	Item	("Delete Line",         Keys ([c-T]))
	Item	("Insert/Overwrite",    Keys ([c-V]))
	Item	("Insert new line",     Keys ([c-N]))
	Item	("Scroll page down",    Keys ([c-C]))
	Item	("Scroll up",           Keys ([c-R]))
	Item	("Full Screen Menu",    Menu(Full), Button(MBF))
)


;
;	Menu Definitions  -  Right Button
;
File: Menu
(
	Title	("File")
	Item	("Files on A:",         Keys("list file on A" [Enter]))
	Item	("Files on B:",         Keys("list file on B" [Enter]))
	Item	("Files on C:",         Keys("list file on C" [Enter]))
	Item	("Use ...",             Keys("Use "))
	Item	("Display Structure",   Keys("disp struct" [Enter]))
	Item	("Create",              Keys("create" [Enter]))
	Item	("Quit",                Keys("Quit" [Enter]))
)

;
;	Mouse Definition
;
Mouse
(
	Left	(LBM)			; Left Button:	 Main Menu
	Middle	(MBF)			; Middle Button: Full Screen Menu
	Right	(RBF)			; Right Button:  File Menu
	Cursor	(CommandKeys)
)
